perm filename GENX[1,MUS] blob sn#071041 filedate 1973-11-02 generic text, type T, neo UTF8
00300	SRT 10000; SET SAMPLING RATE TO 10000
00400	INS 0 1;    INSTRUMENT 1
00500	OSC P4 P5 B2 F1;
00600	OSC B2 P3 B2 F2;
00700	OUT B2 B1/END;		ALL PARAM NUMS ARE 2 LESS THAN IN BOOK!
01400	GEN 0 1 1 .01 0 .99 25;
01500	.99 400  0 511*; GEN INPUT MUST ALWAYS START NEW LINE!
01600	GEN 0 2 2 .7 .5 0 .4 4*; F2 , 3 HARMONICS (1,2,4)
01700	GEN 0 3 3 1 -1*; F3 PUTS LINE FROM 1 TO -1 IN 511 STEPS
01800	
01900	SCORE ; THIS WORD MUST!! APPEAR AFTER INSTS AND GENS ARE SET UP.
02000	      BLANK CARDS MAY COME INSTEAD OF INST NAMES OR 
02100	      PARAM #S AFTER THIS POINT.
02200	BUZZ ;		INSTRUMENT 1=BUZZ, BEGIN TIME=0", 
02300	      DURATION=# OF NOTES IN 'NOTES' (P3).
02400	P2 RHY;		RHY=NEXT ENTRIES WILL BE IN TERMS OF MUSICAL RHYTHM.
02500	8 X 6/FINE*;
03000	P3 A4;
03100	P4 1000/END;
03200	DUM1 GEN 0 1 6;
03300	P2 P2/P3 2/P4 2/P5 NUM/1/.5/.2*; P5=1ST HARM.
03400	P6 NUM/0/.5/.3*/P7 NUM/0/.2/.4*/P8 RLIST/0 0/0 .6/.2 .3*;P8=4TH HARM
03500	P9 NUM/0/0/.5*/P10 0/P11 0/P12 0/P13 .7 0 0  .3 0 1/P14 8/END;
03550	       ;8 HARMONICS
03600	RUN;